From: Jim Blandy <jimb@redhat.com>
Date: Tue, 18 May 1993 22:15:14 +0000 (+0000)
Subject: * server.el (server-switch-hook): New hook.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96194
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1b7899a5245d30d77bce6176275add3f62f23af3;p=emacs.git

* server.el (server-switch-hook): New hook.
	(server-process-filter): Call it.
---

diff --git a/lisp/server.el b/lisp/server.el
index e81acbd21ac..f1ab7eacdb0 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -77,6 +77,9 @@
   "*The program to use as the edit server")
 
 (defvar server-visit-hook nil
+  "*List of hooks to call when visiting a file for the Emacs server.")
+
+(defvar server-switch-hook nil
   "*List of hooks to call when switching to a buffer for the Emacs server.")
 
 (defvar server-process nil 
@@ -181,6 +184,7 @@ Prefix arg means just kill any existing server communications subprocess."
       ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
       (setq server-clients (cons client server-clients))
       (switch-to-buffer (nth 1 client))
+      (run-hooks 'server-switch-hook)
       (message (substitute-command-keys
 		"When done with a buffer, type \\[server-edit].")))))